home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)ua.d64 / dsp.my'moire < prev    next >
Text File  |  2007-02-28  |  358b  |  29 lines
  1. //EXT.MY MOIRE
  2.  
  3. //BY ─AVID ╘URNER
  4. //ON ═AY 10, 1985
  5. //FOR ├64 ├╧═┴╠ 2.0
  6.  
  7. //DRAWS SIMPLE MOIRE USING CIRCLES
  8.  
  9. ╨╥╧├ MY'MOIRE ├╠╧╙┼─
  10.   ╘╥┴╨ ┼╙├-
  11.   ╒╙┼ TURTLE
  12.   HIDETURTLE
  13.   GRAPHICSCREEN(0)
  14.   BACKGROUND(1)
  15.   PENCOLOR(11)
  16.   ╞╧╥ X:=0 ╘╧ 98 ╙╘┼╨ 2 ─╧
  17.     
  18.     
  19.     CIRCLE(0,0,X)
  20.     
  21.   ┼╬─╞╧╥ X
  22.   ╘╥┴╨ ┼╙├+
  23. ┼╬─╨╥╧├ MY'MOIRE
  24.  
  25. MY'MOIRE
  26. ┼╬─ "╨RESS ╞5 TO SEE ═OIRE"
  27.  
  28.  
  29.